Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / howtoc1r / venndiag.frm (.txt) next >

Wrap

Visual Basic Form | 1998-08-07 | 37.5 KB | 1,251 lines

VERSION 5.00 Begin VB.Form VennDiagram Caption = "Venn Diagrams" ClientHeight = 7305 ClientLeft = 60 ClientTop = 345 ClientWidth = 10680 LinkTopic = "Form1" ScaleHeight = 7305 ScaleWidth = 10680 Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 7 Left = 720 Locked = -1 'True TabIndex = 83 Text = "[ NOT (P) And NOT (Q) And R ]" Top = 6600 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 6 Left = 720 Locked = -1 'True TabIndex = 82 Text = "[ NOT (P) And Q And NOT (R) ]" Top = 6240 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 5 Left = 720 Locked = -1 'True TabIndex = 81 Text = "[ NOT (P) And Q And R ]" Top = 5880 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 4 Left = 720 Locked = -1 'True TabIndex = 80 Text = "[ P And NOT (Q) And NOT (R) ]" Top = 5520 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 3 Left = 720 Locked = -1 'True TabIndex = 79 Text = "[ P And NOT (Q) And R ]" Top = 5160 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 2 Left = 720 Locked = -1 'True TabIndex = 78 Text = "[ P And Q And NOT (R) ]" Top = 4800 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 1 Left = 720 Locked = -1 'True TabIndex = 77 Text = "[ P And Q And R ] " Top = 4440 Visible = 0 'False Width = 3375 End Begin VB.TextBox txtinformation BackColor = &H8000000A& Height = 285 Index = 8 Left = 720 Locked = -1 'True TabIndex = 76 Text = "[ NOT (P) And NOT (Q) And NOT (R) ]" Top = 6960 Visible = 0 'False Width = 3375 End Begin VB.CommandButton btnReset Caption = "Reset" Height = 255 Left = 3360 TabIndex = 66 Top = 600 Width = 615 End Begin VB.OptionButton optSets Caption = "3 Sets" Height = 375 Index = 3 Left = 4440 TabIndex = 57 Top = 1800 Value = -1 'True Width = 855 End Begin VB.OptionButton optSets Caption = "2 Sets" Height = 375 Index = 2 Left = 4440 TabIndex = 56 Top = 1440 Width = 855 End Begin VB.OptionButton optSets Caption = "1 Set" Height = 375 Index = 1 Left = 4440 TabIndex = 55 Top = 1080 Width = 855 End Begin VB.TextBox Text1 Height = 285 Index = 3 Left = 2640 MaxLength = 1 TabIndex = 54 Text = "R" Top = 600 Width = 375 End Begin VB.TextBox Text1 Height = 285 Index = 2 Left = 2040 MaxLength = 1 TabIndex = 53 Text = "Q" Top = 600 Width = 375 End Begin VB.TextBox Text1 Height = 285 Index = 1 Left = 1440 MaxLength = 1 TabIndex = 52 Text = "P" Top = 600 Width = 375 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 8 Left = 3240 TabIndex = 38 Top = 3600 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 7 Left = 3240 TabIndex = 37 Top = 3240 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 6 Left = 3240 TabIndex = 36 Top = 2880 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 5 Left = 3240 TabIndex = 35 Top = 2520 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 4 Left = 3240 TabIndex = 34 Top = 2160 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 3 Left = 3240 TabIndex = 33 Top = 1800 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 2 Left = 3240 TabIndex = 32 Top = 1440 Width = 255 End Begin VB.CheckBox Check1 Caption = "Check1" Height = 255 Index = 1 Left = 3240 TabIndex = 31 Top = 1080 Width = 255 End Begin VB.TextBox txtR Height = 285 Index = 1 Left = 2640 Locked = -1 'True TabIndex = 23 Text = "T" Top = 1080 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 1 Left = 2040 Locked = -1 'True TabIndex = 22 Text = "T" Top = 1080 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 1 Left = 1440 Locked = -1 'True TabIndex = 21 Text = "T" Top = 1080 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 8 Left = 2640 Locked = -1 'True TabIndex = 20 Text = "F" Top = 3600 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 8 Left = 2040 Locked = -1 'True TabIndex = 19 Text = "F" Top = 3600 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 8 Left = 1440 Locked = -1 'True TabIndex = 18 Text = "F" Top = 3600 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 7 Left = 2640 Locked = -1 'True TabIndex = 17 Text = "T" Top = 3240 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 7 Left = 2040 Locked = -1 'True TabIndex = 16 Text = "F" Top = 3240 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 7 Left = 1440 Locked = -1 'True TabIndex = 15 Text = "F" Top = 3240 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 6 Left = 2640 Locked = -1 'True TabIndex = 14 Text = "F" Top = 2880 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 6 Left = 2040 Locked = -1 'True TabIndex = 13 Text = "T" Top = 2880 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 6 Left = 1440 Locked = -1 'True TabIndex = 12 Text = "F" Top = 2880 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 5 Left = 2640 Locked = -1 'True TabIndex = 11 Text = "T" Top = 2520 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 5 Left = 2040 Locked = -1 'True TabIndex = 10 Text = "T" Top = 2520 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 5 Left = 1440 Locked = -1 'True TabIndex = 9 Text = "F" Top = 2520 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 4 Left = 2640 Locked = -1 'True TabIndex = 8 Text = "F" Top = 2160 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 4 Left = 2040 Locked = -1 'True TabIndex = 7 Text = "F" Top = 2160 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 4 Left = 1440 Locked = -1 'True TabIndex = 6 Text = "T" Top = 2160 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 3 Left = 2640 Locked = -1 'True TabIndex = 5 Text = "T" Top = 1800 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 3 Left = 2040 Locked = -1 'True TabIndex = 4 Text = "F" Top = 1800 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 3 Left = 1440 Locked = -1 'True TabIndex = 3 Text = "T" Top = 1800 Width = 375 End Begin VB.TextBox txtR Height = 285 Index = 2 Left = 2640 Locked = -1 'True TabIndex = 2 Text = "F" Top = 1440 Width = 375 End Begin VB.TextBox txtQ Height = 285 Index = 2 Left = 2040 Locked = -1 'True TabIndex = 1 Text = "T" Top = 1440 Width = 375 End Begin VB.TextBox txtP Height = 285 Index = 2 Left = 1440 Locked = -1 'True TabIndex = 0 Text = "T" Top = 1440 Width = 375 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Disjunctive normal form" BeginProperty Font Name = "MS Sans Serif" Size = 13.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 600 TabIndex = 93 Top = 4080 Width = 3615 End Begin VB.Label lblNumbered Caption = "1" Height = 255 Index = 15 Left = 120 TabIndex = 92 Top = 1080 Width = 255 End Begin VB.Label lblNumbered Caption = "2" Height = 255 Index = 14 Left = 120 TabIndex = 91 Top = 1440 Width = 255 End Begin VB.Label lblNumbered Caption = "3" Height = 255 Index = 13 Left = 120 TabIndex = 90 Top = 1800 Width = 255 End Begin VB.Label lblNumbered Caption = "4" Height = 255 Index = 12 Left = 120 TabIndex = 89 Top = 2160 Width = 255 End Begin VB.Label lblNumbered Caption = "5" Height = 255 Index = 11 Left = 120 TabIndex = 88 Top = 2520 Width = 255 End Begin VB.Label lblNumbered Caption = "6" Height = 255 Index = 10 Left = 120 TabIndex = 87 Top = 2880 Width = 255 End Begin VB.Label lblNumbered Caption = "7" Height = 255 Index = 9 Left = 120 TabIndex = 86 Top = 3240 Width = 255 End Begin VB.Label lblNumbered Caption = "8" Height = 255 Index = 0 Left = 120 TabIndex = 85 Top = 3600 Width = 255 End Begin VB.Line Line3 X1 = 3120 X2 = 3120 Y1 = 480 Y2 = 3840 End Begin VB.Line Line2 X1 = 720 X2 = 4080 Y1 = 960 Y2 = 960 End Begin VB.Line Line1 X1 = 720 X2 = 4080 Y1 = 480 Y2 = 480 End Begin VB.Label lblNumbered Caption = "8" Height = 255 Index = 8 Left = 120 TabIndex = 75 Top = 6960 Width = 255 End Begin VB.Label lblNumbered Caption = "7" Height = 255 Index = 7 Left = 120 TabIndex = 74 Top = 6600 Width = 255 End Begin VB.Label lblNumbered Caption = "6" Height = 255 Index = 6 Left = 120 TabIndex = 73 Top = 6240 Width = 255 End Begin VB.Label lblNumbered Caption = "5" Height = 255 Index = 5 Left = 120 TabIndex = 72 Top = 5880 Width = 255 End Begin VB.Label lblNumbered Caption = "4" Height = 255 Index = 4 Left = 120 TabIndex = 71 Top = 5520 Width = 255 End Begin VB.Label lblNumbered Caption = "3" Height = 255 Index = 3 Left = 120 TabIndex = 70 Top = 5160 Width = 255 End Begin VB.Label lblNumbered Caption = "2" Height = 255 Index = 2 Left = 120 TabIndex = 69 Top = 4800 Width = 255 End Begin VB.Label lblNumbered Caption = "1" Height = 255 Index = 1 Left = 120 TabIndex = 68 Top = 4440 Width = 255 End Begin VB.Label lblSelects Caption = "Select 5" Height = 255 Index = 2 Left = 720 TabIndex = 65 Top = 1440 Width = 615 End Begin VB.Label lblSelects Caption = "Select 2" Height = 255 Index = 8 Left = 720 TabIndex = 64 Top = 3600 Width = 615 End Begin VB.Label lblSelects Caption = "Select 6" Height = 255 Index = 4 Left = 720 TabIndex = 63 Top = 2160 Width = 615 End Begin VB.Label lblSelects Caption = "Select 8" Height = 255 Index = 7 Left = 720 TabIndex = 62 Top = 3240 Width = 615 End Begin VB.Label lblSelects Caption = "Select 4" Height = 255 Index = 6 Left = 720 TabIndex = 61 Top = 2880 Width = 615 End Begin VB.Label lblSelects Caption = "Select 3" Height = 255 Index = 3 Left = 720 TabIndex = 60 Top = 1800 Width = 615 End Begin VB.Label lblSelects Caption = "Select 7" Height = 255 Index = 5 Left = 720 TabIndex = 59 Top = 2520 Width = 615 End Begin VB.Label lblSelects Caption = "Select 1" Height = 255 Index = 1 Left = 720 TabIndex = 58 Top = 1080 Width = 615 End Begin VB.Shape Shape5 Height = 1335 Left = 4320 Top = 960 Width = 1095 End Begin VB.Label lblSet BackStyle = 0 'Transparent Caption = "R" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 3 Left = 7800 TabIndex = 51 Top = 5400 Width = 375 End Begin VB.Label lblSet BackStyle = 0 'Transparent Caption = "Q" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 2 Left = 9720 TabIndex = 50 Top = 1800 Width = 375 End Begin VB.Label lblSet BackStyle = 0 'Transparent Caption = "P" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 1 Left = 6000 TabIndex = 49 Top = 1800 Width = 375 End Begin VB.Label Label6 BackStyle = 0 'Transparent Caption = "U" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 10080 TabIndex = 48 Top = 5640 Width = 375 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 8 Left = 9480 TabIndex = 47 Top = 5400 Visible = 0 'False Width = 855 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 8 Left = 3600 TabIndex = 46 Top = 3600 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 7 Left = 3600 TabIndex = 45 Top = 3240 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 6 Left = 3600 TabIndex = 44 Top = 2880 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 5 Left = 3600 TabIndex = 43 Top = 2520 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 4 Left = 3600 TabIndex = 42 Top = 2160 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 3 Left = 3600 TabIndex = 41 Top = 1800 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 2 Left = 3600 TabIndex = 40 Top = 1440 Width = 615 End Begin VB.Label Label5 Caption = "False" Height = 255 Index = 1 Left = 3600 TabIndex = 39 Top = 1080 Width = 615 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 8" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 7 Left = 7680 TabIndex = 30 Top = 4680 Visible = 0 'False Width = 735 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 4" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 6 Left = 9240 TabIndex = 29 Top = 2400 Visible = 0 'False Width = 735 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 7" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 5 Left = 8520 TabIndex = 28 Top = 3720 Visible = 0 'False Width = 855 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 6" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 4 Left = 6000 TabIndex = 27 Top = 2400 Visible = 0 'False Width = 855 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 3" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 3 Left = 6720 TabIndex = 26 Top = 3720 Visible = 0 'False Width = 855 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 5" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 2 Left = 7680 TabIndex = 25 Top = 2160 Visible = 0 'False Width = 855 End Begin VB.Label lblSelect BackStyle = 0 'Transparent Caption = "Select 1" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 255 Index = 1 Left = 7680 TabIndex = 24 Top = 3120 Visible = 0 'False Width = 855 End Begin VB.Shape Shape DrawMode = 3 'Not Merge Pen FillColor = &H00FF0000& FillStyle = 0 'Solid Height = 3135 Index = 3 Left = 6360 Shape = 3 'Circle Top = 2760 Width = 3255 End Begin VB.Shape Shape DrawMode = 3 'Not Merge Pen FillColor = &H0000FF00& FillStyle = 0 'Solid Height = 3135 Index = 2 Left = 7200 Shape = 3 'Circle Top = 1200 Width = 3255 End Begin VB.Shape Shape DrawMode = 3 'Not Merge Pen FillColor = &H000000FF& FillStyle = 0 'Solid Height = 3135 Index = 1 Left = 5520 Shape = 3 'Circle Top = 1200 Width = 3255 End Begin VB.Shape Shape3 DrawMode = 10 'Mask Pen FillColor = &H00E0E0E0& FillStyle = 0 'Solid Height = 5175 Left = 5400 Top = 960 Width = 5175 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Venn Diagram" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 5400 TabIndex = 67 Top = 480 Width = 5175 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Truth Table" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 720 TabIndex = 84 Top = 0 Width = 3375 End Attribute VB_Name = "VennDiagram" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub btnReset_Click() Dim i As Integer For i = 1 To 8 Check1(i).Value = False Next i End Sub Private Sub Check1_Click(Index As Integer) If lblSelect(Index).Visible = False Then lblSelect(Index).Visible = True Label5(Index).Caption = "True" txtinformation(Index).Visible = True Else lblSelect(Index).Visible = False Label5(Index).Caption = "False" txtinformation(Index).Visible = False End If End Sub Private Sub optSets_Click(Index As Integer) Dim i As Integer btnReset_Click Select Case Index Case 1 For i = 2 To 3 lblSet(i).Visible = False Shape(i).Visible = False Text1(i).Visible = False Next i For i = 2 To 7 lblSelects(i).Visible = False txtP(i).Visible = False txtQ(i).Visible = False txtR(i).Visible = False Check1(i).Visible = False Label5(i).Visible = False Check1(i).Visible = False Next i txtQ(1).Visible = False txtR(1).Visible = False txtQ(8).Visible = False txtR(8).Visible = False txtinformation(1).Text = "[ P ]" txtinformation(8).Text = "[ NOT (P) ]" Case 2 i = 3 lblSet(i).Visible = False Shape(i).Visible = False Text1(i).Visible = False For i = 1 To 8 txtP(i).Visible = True txtR(i).Visible = False Label5(i).Visible = True txtQ(i).Visible = True lblSelects(i).Visible = True Check1(i).Visible = True Next i i = 2 lblSet(i).Visible = True Shape(i).Visible = True Text1(i).Visible = True txtQ(2).Visible = False txtQ(4).Visible = False txtQ(5).Visible = False txtQ(7).Visible = False txtQ(8).Visible = True txtP(2).Visible = False txtP(4).Visible = False txtP(5).Visible = False txtP(7).Visible = False Label5(2).Visible = False Label5(4).Visible = False Label5(5).Visible = False Label5(7).Visible = False Check1(2).Visible = False Check1(4).Visible = False Check1(5).Visible = False Check1(7).Visible = False lblSelects(2).Visible = False lblSelects(4).Visible = False lblSelects(5).Visible = False lblSelects(7).Visible = False txtinformation(1).Text = "[ P And Q ]" txtinformation(3).Text = "[ P And NOT (Q) ]" txtinformation(6).Text = "[ NOT (P) And Q ]" txtinformation(8).Text = "[ NOT (P) And NOT (Q) ]" Case 3 For i = 2 To 3 lblSet(i).Visible = True Shape(i).Visible = True Text1(i).Visible = True Check1(i).Visible = True Next i For i = 1 To 8 txtP(i).Visible = True txtQ(i).Visible = True txtR(i).Visible = True Check1(i).Visible = True Label5(i).Visible = True lblSelects(i).Visible = True Next i txtinformation(1).Text = "[ P And Q And R ]" txtinformation(3).Text = "[ P And NOT (Q) And R ]" txtinformation(6).Text = "[ NOT (P) And Q And NOT (R) ]" txtinformation(8).Text = "[ NOT (P) And NOT (Q) And NOT (R) ]" End Select End Sub Private Sub Text1_Change(Index As Integer) lblSet(Index) = Text1(Index) End Sub